﻿Public Class ExceptionHandlerForm


    Public Shadows Sub ShowDialog(ByVal ex As Exception)

        Me.Text = ex.GetType().ToString()
        Me.PropertyGrid1.SelectedObject = ex
        Me.Label1.Text = ex.Message
        Me.TextBox1.Text = ex.StackTrace

        MyBase.ShowDialog()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Close()
    End Sub
End Class